home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2005 May / CD Rom Data Mayıs 2005.iso / Media / Program.dcr / script_3_script_Prg_IG.ls < prev    next >
Encoding:
Text File  |  2005-04-27  |  669 b   |  33 lines
  1. global Prgler, PrgNo, ResNo, Resimler, Buyuk
  2.  
  3. on mouseUp me
  4.   cs = the currentSpriteNum
  5.   if sprite(cs).visible = 0 then
  6.     exit
  7.   end if
  8.   if cs = 10 then
  9.     Istikamet = -1
  10.   else
  11.     Istikamet = 1
  12.   end if
  13.   ResNo = ResNo + Istikamet
  14.   importFileInto(member("Resim"), the moviePath & "\Programlar\" & Prgler[PrgNo] & "\" & Resimler[ResNo])
  15.   member(1, 1).name = "Resim"
  16.   if Buyuk then
  17.     resKirp(500, 300, 8)
  18.   else
  19.     resKirp(200, 130, 8)
  20.   end if
  21.   updateStage()
  22.   if ResNo = Resimler.count then
  23.     sprite(11).visible = 0
  24.   else
  25.     sprite(11).visible = 1
  26.   end if
  27.   if ResNo = 1 then
  28.     sprite(10).visible = 0
  29.   else
  30.     sprite(10).visible = 1
  31.   end if
  32. end
  33.